home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
qbwinfnt.zip
/
EX_BSVFT.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-03-01
|
1KB
|
41 lines
REM: EX_BSVFT.BAS, Unregistered Version 1.0
REM: Example of using BSAVE to store a font array to disk.
DECLARE SUB BSAVEFont (FlName$, FontArray%())
DECLARE SUB FastString (Text$, FClr%, X%, Y%, FontArray%())
DECLARE SUB LoadRsrcFileFont (FlName$, FontNum%, FontArray%(), RetCode%, RetMsg$)
'...setup a VGA screen mode...
SCREEN 12
'...dim array for font data (use REDIM so its DYNAMIC)...
REDIM FontArray%(1)
PRINT : PRINT "Loading a font from SAMPLE.FON..."
'...load the font in the example FON file...
CALL LoadRsrcFileFont("SAMPLE.FON", 1, FontArray%(), RetCode%, RetMsg$)
IF (RetCode% <> 0) THEN
PRINT "***** ERROR: RetCode% = "; RetCode%
PRINT "***** "; RetMsg$
STOP
END IF
'...display a sample of the font...
CALL FastString("Sample of Font ", 4, 10, 60, FontArray%())
LOCATE 8, 1: PRINT "BSAVE font array to file TEST.BIN...";
'...save the file using BSAVE for quick future access...
CALL BSAVEFont("TEST.BIN", FontArray%())
PRINT "Completed!": PRINT
PRINT "See the example EX_BLDFT.BAS for an example of loading"
PRINT "a font file created with BSAVE."
END